home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 013 / dirutil.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-10-15  |  1.0 KB  |  27 lines
  1. 10  ON ERROR GOTO 250
  2. 20  INPUT "WHAT DIRECTORY TO CREATE/UPDATE (INCLUDE DRIVE DESIGNATION) ";DIRECT$
  3. 30  OPEN DIRECT$ FOR APPEND AS #1
  4. 40  INPUT "PROGRAM NAME (EXCLUDE EXTENSION) ";PROGNAME$
  5. 50  IF LEN(PROGNAME$)>8 THEN PRINT CHR$(7):GOTO 40
  6. 60  INPUT "EXTENSION ";EXTEN$
  7. 70  IF LEN(EXTEN$)>3 THEN PRINT CHR$(7):GOTO 60
  8. 80  INPUT "PROGRAM SIZE ";SIZE$
  9. 90  IF LEN(SIZE$)>9 THEN PRINT CHR$(7):GOTO 80
  10. 100  SIZE=VAL(SIZE$)
  11. 110  INPUT "ENTER DATE OF CREATION IN THE FORM (MM/DD/YY) ";CREATE$
  12. 120  IF LEN(CREATE$)<>8 THEN PRINT CHR$(7):GOTO 110
  13. 130  PRINT "ENTER 40 (32) CHARACTER DESCRIPTION OF ";PROGNAME$;".";EXTEN$
  14. 140  PRINT "  1---+---1+0---+---2+0---+---3+0--*+---4+0"
  15. 150  INPUT DESCRIP$
  16. 160  IF LEN(DESCRIP$)>40 THEN PRINT CHR$(7):GOTO 130
  17. 170  PRINT#1,USING"\      \ \ \ ######### \      \  ";PROGNAME$;EXTEN$;SIZE;CREATE$;:PRINT#1,DESCRIP$
  18. 180  PRINT "MORE (Y/N) "
  19. 190  MORE$=INKEY$
  20. 200  IF MORE$="Y" OR MORE$="y" THEN 40
  21. 210  IF MORE$="N" OR MORE$="n" THEN 230
  22. 220  GOTO 190
  23. 230  CLOSE
  24. 240  SYSTEM
  25. 250  IF ERR=53 THEN OPEN DIRECT$ FOR OUTPUT AS #1:RESUME 40
  26. 260  PRINT "ERROR ";ERR;" IN LINE NUMBER ";ERL:END
  27.